DATA SEGMENT
        DDD DB 10H DUP('A','B','C', 'D')
DATA ENDS

CODE SEGMENT
        ASSUME CS:CODE,DS:DATA
START:  MOV CX, 10
        MOV AX, DATA
        MOV DS, AX
        LEA BP, DDD
        MOV DI, 0
;OOO:    MOV AH, 2h
;        MOV DL, 'A'
;        INT 21H
;        LOOP OOO
;        MOV AH, 2H
;        MOV DL, 0DH
;        INT 21H
        MOV AH, 2H
        MOV DL, 'D'
        INT 21H
        MOV CX, 10H
        MOV AL, [BP+DI]
        XCHG AL, [BP+DI+1]
        MOV  [BP+DI], AL
BPTEST: MOV AH, 02H
        MOV DL, [BP+DI]
        INT 21H
        INC DI
        LOOP BPTEST
        MOV AH, 4CH
        INT 21H
CODE ENDS
END START
